home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / gnu / a2_0b_Emacs_sr.lha / Emacs-19.25 / lib-src / etags-vmslib.c < prev    next >
C/C++ Source or Header  |  1992-04-19  |  6KB  |  188 lines
  1. /* File name wild card expansion for VMS.
  2.    This file is part of the etags program.
  3.    Copyright (C) 1987 Free Software Foundation, Inc. 3 Feb 1987
  4.      
  5. This program is distributed in the hope that it will be useful,
  6. but without any warranty.  No author or distributor
  7. accepts responsibility to anyone for the consequences of using it
  8. or for whether it serves any particular purpose or works at all,
  9. unless he says so in writing.
  10.      
  11.    Permission is granted to anyone to distribute verbatim copies
  12.    of this program's source code as received, in any medium, provided that
  13.    the copyright notice, the nonwarraty notice above
  14.    and this permission notice are preserved,
  15.    and that the distributor grants the recipient all rights
  16.    for further redistribution as permitted by this notice,
  17.    and informs him of these rights.
  18.      
  19.    Permission is granted to distribute modified versions of this
  20.    program's source code, or of portions of it, under the above
  21.    conditions, plus the conditions that all changed files carry
  22.    prominent notices stating who last changed them and that the
  23.    derived material, including anything packaged together with it and
  24.    conceptually functioning as a modification of it rather than an
  25.    application of it, is in its entirety subject to a permission
  26.    notice identical to this one.
  27.      
  28.    Permission is granted to distribute this program (verbatim or
  29.    as modified) in compiled or executable form, provided verbatim
  30.    redistribution is permitted as stated above for source code, and
  31.     A.  it is accompanied by the corresponding machine-readable
  32.       source code, under the above conditions, or
  33.     B.  it is accompanied by a written offer, with no time limit,
  34.       to distribute the corresponding machine-readable source code,
  35.       under the above conditions, to any one, in return for reimbursement
  36.       of the cost of distribution.   Verbatim redistribution of the
  37.       written offer must be permitted.  Or,
  38.     C.  it is distributed by someone who received only the
  39.       compiled or executable form, and is accompanied by a copy of the
  40.       written offer of source code which he received along with it.
  41.      
  42.    Permission is granted to distribute this program (verbatim or as modified)
  43.    in executable form as part of a larger system provided that the source
  44.    code for this program, including any modifications used,
  45.    is also distributed or offered as stated in the preceding paragraph.
  46.      
  47. In other words, you are welcome to use, share and improve this program.
  48. You are forbidden to forbid anyone else to use, share and improve
  49. what you give them.   Help stamp out software-hoarding!  */
  50.  
  51. #include    <stdio.h>
  52. typedef    char    tbool;
  53.  
  54. /* This is a BUG!  ANY arbitrary limit is a BUG!
  55.    Won't someone please fix this?  */
  56. #define    MAX_FILE_SPEC_LEN    255
  57. typedef struct    {
  58.   short   curlen;
  59.   char    body[MAX_FILE_SPEC_LEN + 1];
  60. } vspec;
  61. #define    EOS    '\0'
  62. #define    NO    0
  63. #define    YES    1
  64. #define    NULL    0
  65.  
  66. /* v1.01 nmm 19-Aug-85 gfnames - return in successive calls the 
  67.  name of each file specified by all the remaining args in the command-line
  68.  expanding wild cards and 
  69.  stepping over arguments when they have been processed completely
  70. */
  71. char*
  72. gfnames(pac, pav, p_error)
  73.     int    *pac;
  74.     char    **pav[];
  75.     tbool    *p_error;
  76. {
  77.     static    vspec    filename = {MAX_FILE_SPEC_LEN, "\0"};
  78.     short    fn_exp();
  79.  
  80.     while (1)
  81.         if (*pac == 0)
  82.             {
  83.             *p_error = NO;
  84.             return(NULL);
  85.             }
  86.         else switch(fn_exp(&filename, **pav))
  87.             {
  88.         case 1:
  89.             *p_error = NO;
  90.             return(filename.body);
  91.             break;
  92.         case 0:
  93.             --*pac;
  94.             ++*pav;
  95.             break;
  96.         default:
  97.             *p_error = YES;
  98.             return(filename.body);
  99.             break;
  100.             }
  101.                 
  102. }
  103.  
  104. /* v1.05 nmm 26-Jun-86 fn_exp - expand specification of list of file names
  105.  returning in each successive call the next filename matching the input
  106.  spec. The function expects that each in_spec passed
  107.  to it will be processed to completion; in particular, up to and
  108.  including the call following that in which the last matching name
  109.  is returned, the function ignores the value of in_spec, and will
  110.  only start processing a new spec with the following call. 
  111.  If an error occurs, on return out_spec contains the value
  112.  of in_spec when the error occurred.
  113.  
  114.  With each successive filename returned in out_spec, the
  115.  function's return value is one. When there are no more matching
  116.  names the function returns zero. If on the first call no file
  117.  matches in_spec, or there is any other error, -1 is returned. 
  118. */
  119.  
  120. #include    <rmsdef.h>
  121. #include    <descrip.h>
  122. #define        OUTSIZE    MAX_FILE_SPEC_LEN
  123. short
  124. fn_exp(out, in)
  125.     vspec    *out;
  126.     char    *in;
  127. {
  128.     static    long    context = 0;
  129.     static    struct    dsc$descriptor_s    o;
  130.     static    struct    dsc$descriptor_s    i;
  131.     static    tbool    pass1 = YES;
  132.         long    status;
  133.         short    retval;
  134.  
  135.     if (pass1)
  136.         {
  137.         pass1 = NO;
  138.         o.dsc$a_pointer = (char *) out;
  139.         o.dsc$w_length = (short)OUTSIZE;
  140.         i.dsc$a_pointer = in;
  141.         i.dsc$w_length = (short)strlen(in);
  142.         i.dsc$b_dtype = DSC$K_DTYPE_T;
  143.         i.dsc$b_class = DSC$K_CLASS_S;
  144.         o.dsc$b_dtype = DSC$K_DTYPE_VT;
  145.         o.dsc$b_class = DSC$K_CLASS_VS;
  146.         }
  147.     if ( (status = lib$find_file(&i, &o, &context, 0, 0)) == RMS$_NORMAL)
  148.         {
  149.         out->body[out->curlen] = EOS;
  150.         return(1);
  151.         }
  152.     else if (status == RMS$_NMF)
  153.         retval = 0;
  154.     else
  155.         {
  156.         strcpy(out->body, in);
  157.         retval = -1;
  158.         }
  159.     lib$find_file_end(&context);
  160.     pass1 = YES;
  161.     return(retval);
  162. }    
  163.  
  164. #ifndef OLD  /* Newer versions of VMS do provide `system'.  */
  165. system(cmd)
  166.      char *cmd;
  167. {
  168.   fprintf(stderr, "system() function not implemented under VMS\n");
  169. }
  170. #endif
  171.  
  172. #define    VERSION_DELIM    ';'
  173. char *massage_name(s)
  174.     char    *s;
  175. {
  176.     char    *start = s;    
  177.  
  178.     for ( ; *s; s++)
  179.         if (*s == VERSION_DELIM)
  180.             {
  181.             *s = EOS;
  182.             break;
  183.             }
  184.         else
  185.             *s = tolower(*s);
  186.     return(start);
  187. }
  188.